home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Programmer's Power Pack
/
Delphi Volume 1.iso
/
s_to_z
/
tbarco16
/
barfrm16.dfm
/
barfrm16.txt
Wrap
Text File
|
1996-09-15
|
3KB
|
160 lines
object DemoForm: TDemoForm
Left = 66
Top = 43
Width = 517
Height = 428
Caption = 'TBarcode'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnCreate = FormCreate
OnPaint = FormPaint
TextHeight = 16
object Label1: TLabel
Left = 16
Top = 8
Width = 80
Height = 16
Caption = 'Bar_Caption'
end
object Label2: TLabel
Left = 216
Top = 8
Width = 122
Height = 16
Caption = 'Bar_HeightPercent'
end
object Barcode1: TBarcode
Left = 216
Top = 156
Width = 68
Height = 65
Hint = 'Exit program'
Bar_Caption = '12345'
Bar_HighDensity = False
Bar_ModuleWidth = SC2
Bar_WidthReduce = False
Bar_ZoomSize = False
Code_License = 'Not registered'
Code_Version = 'v1.00'
end
object RGCodetyp: TRadioGroup
Left = 16
Top = 64
Width = 169
Height = 137
Caption = 'Bar_Codetyp'
ItemIndex = 0
Items.Strings = (
'EAN-8'
'EAN-13'
'UPC-A'
'UPC-E'
'Code 39'
'Code 2/5 interleaved'
'Code 2/5i (Frachtpost)')
TabOrder = 2
OnClick = RGCodetypClick
end
object CB_ZoomSize: TCheckBox
Left = 212
Top = 100
Width = 149
Height = 17
Caption = 'Bar_ZoomSize'
TabOrder = 4
OnClick = CB_ZoomSizeClick
end
object CB_HighDensity: TCheckBox
Left = 212
Top = 72
Width = 149
Height = 21
Caption = 'Bar_HighDensity'
TabOrder = 6
OnClick = CB_HighDensityClick
end
object CB_WidthReduce: TCheckBox
Left = 212
Top = 124
Width = 141
Height = 17
Caption = 'Bar_WidthReduce'
TabOrder = 1
OnClick = CB_WidthReduceClick
end
object Edit1: TEdit
Left = 20
Top = 28
Width = 165
Height = 24
TabOrder = 3
Text = 'Edit1'
OnChange = Edit1Change
end
object SE_HeightPerCent: TSpinEdit
Left = 216
Top = 28
Width = 121
Height = 26
EditorEnabled = False
Increment = 5
MaxValue = 200
MinValue = 20
TabOrder = 5
Value = 20
OnChange = SE_HeightPerCentChange
end
object RGModulewidth: TRadioGroup
Left = 16
Top = 208
Width = 169
Height = 129
Caption = 'Bar_ModuleWidth'
Columns = 2
ItemIndex = 2
Items.Strings = (
'SC0'
'SC1'
'SC2'
'SC3'
'SC4'
'SC5'
'SC6'
'SC7'
'SC8'
'SC9')
TabOrder = 0
OnClick = RGModulewidthClick
end
object PrintBtn1: TBitBtn
Left = 376
Top = 24
Width = 113
Height = 29
Caption = 'Print &1'
TabOrder = 8
OnClick = PrintBtn1Click
end
object PrintBtn2: TBitBtn
Left = 376
Top = 60
Width = 113
Height = 29
Caption = 'Print &2'
TabOrder = 7
end
object ExitBtn: TButton
Left = 376
Top = 100
Width = 113
Height = 29
Caption = 'Exit'
TabOrder = 9
OnClick = ExitBtnClick
end
end